program Project1; // Zadanie 3.17

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  ilosc_liczb = 5;

var
  i, liczba, suma, min, max : Integer;

begin
  Writeln('Program losuje ', ilosc_liczb, ' liczb calkowitych z przedzialu od 0 do 99,');
  Writeln('a nastepnie znajduje najmniejsza i najwieksza oraz');
  Writeln('oblicza srednia ze wszystkich wylosowanych liczb.');
  suma := 0;
  i := 0;

  Randomize();
  min := Random(100);
  Writeln;
  Write('Wylosowano liczby: ');
  Write(min,', ');
  max := min;
  suma := suma+max;

  repeat
    begin
     liczba := Random(100);
     if i < ilosc_liczb-2 then
       Write(liczba, ', ')
     else
       Write(liczba, '.');
     if max < liczba then
       max:= liczba;
     if liczba < min then
       min := liczba;
     suma := suma+liczba;
     i := i+1;
    end;
  until (i = ilosc_liczb-1);

  Writeln;
  Writeln('Najwieksza liczba to ', max, '.');
  Writeln('Najmniejsza liczba to ', min, '.');
  Writeln('Srednia = ', suma/ilosc_liczb:4:2, '.');

  Readln; // czeka na nacisniecie klawisza Enter
end.

